home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 January
/
1986-01.d64
/
highlighter 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
672b
|
15 lines
6 n=198:p=631:poke53281,6
8 rem in line 6 for +4/16, n=239:p=1319:color0,7,4
10 print"[147]"chr$(14)chr$(8):print"[154]rem highlighter
12 [133]"program namecont";n$:[139]n$[178]""[167][153]"ononononon":[137]12
14 q$[178][199](34):[153]"loadloading ":[153]n$"load"q$n$q$",8
16 print"63994s=p[197](s)+p[197](s+1)*256
18 [153]"63995ifpval(s+4)=143tleft$?"q$"open"q$"pval(s+2)+pval(s+3)*256:t=s+4:go(NULL)63997
20 print"63996on-(s<>.)g[207]63994:?"q$"[147]"q$";:g[207]63999
22 [153]"63997t=t+1:ifpval(t)=.tleft$re(NULL)
24 print"63998on-(p[197](t)=32)g[207]63997:p[207]t+(t>s+5),18:re[212]
26 [153]"63999p(NULL)p,19:f(NULL)i=1to6:p(NULL)p+i,13:?63993+i:nval:p(NULL)p+i,154:p(NULL)n,8
28 print"?"q$"[159]highlighting"q$":n=198:p=631:s=43:g[207]63994
29 [143] in line 28 for +4/16, n=239:p=1319
30 [151]p,19:[129]i[178]1[164]8:[151]p[170]i,13:[130]:[151]n,9